home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / dev / e / framework.lha / fw / wbIDCMP.e < prev    next >
Encoding:
Text File  |  1996-01-28  |  3.4 KB  |  133 lines
  1.  
  2. -> wbIDCMP is an abstraction of intuition IDCMP events.
  3.  
  4. -> Copyright © Guichard Damien 01/04/1996
  5.  
  6. OPT MODULE
  7. OPT EXPORT
  8.  
  9. MODULE 'intuition/intuition'
  10. MODULE 'fw/wbObject','fw/wbMessagePort'
  11.  
  12. OBJECT wbIDCMP OF wbMessagePort
  13. ENDOBJECT
  14.  
  15. -> Handle the receipt of a message at the object's MsgPort.
  16. PROC handleMessage(msg:PTR TO intuimessage) OF wbIDCMP
  17.   DEF class
  18.   class:=msg.class
  19.   SELECT class
  20.   CASE IDCMP_SIZEVERIFY      
  21.     RETURN self.handleSizeVerify(msg)
  22.   CASE IDCMP_NEWSIZE
  23.     RETURN self.handleNewSize(msg)
  24.   CASE IDCMP_REFRESHWINDOW
  25.     RETURN self.handleRefreshWindow(msg)
  26.   CASE IDCMP_MOUSEBUTTONS
  27.     RETURN self.handleMouseButtons(msg)
  28.   CASE IDCMP_MOUSEMOVE
  29.     RETURN self.handleMouseMove(msg)
  30.   CASE IDCMP_GADGETDOWN
  31.     RETURN self.handleGadgetDown(msg)
  32.   CASE IDCMP_GADGETUP
  33.     RETURN self.handleGadgetUp(msg)
  34.   CASE IDCMP_REQSET
  35.     RETURN self.handleReqSet(msg)
  36.   CASE IDCMP_MENUPICK
  37.     RETURN self.handleMenuPick(msg)
  38.   CASE IDCMP_CLOSEWINDOW
  39.     RETURN self.handleCloseWindow(msg)
  40.   CASE IDCMP_RAWKEY
  41.     RETURN self.handleRawKey(msg)
  42.   CASE IDCMP_REQVERIFY
  43.     RETURN self.handleReqVerify(msg)
  44.   CASE IDCMP_REQCLEAR
  45.     RETURN self.handleReqClear(msg)
  46.   CASE IDCMP_MENUVERIFY
  47.     RETURN self.handleMenuVerify(msg)
  48.   CASE IDCMP_NEWPREFS
  49.     RETURN self.handleNewPrefs(msg)
  50.   CASE IDCMP_DISKINSERTED
  51.     RETURN self.handleDiskInserted(msg)
  52.   CASE IDCMP_DISKREMOVED
  53.     RETURN self.handleDiskRemoved(msg)
  54.   CASE IDCMP_ACTIVEWINDOW
  55.     RETURN self.handleActiveWindow(msg)
  56.   CASE IDCMP_INACTIVEWINDOW
  57.     RETURN self.handleInactiveWindow(msg)
  58.   CASE IDCMP_DELTAMOVE
  59.     RETURN self.handleDeltaMove(msg)
  60.   CASE IDCMP_VANILLAKEY
  61.     RETURN self.handleVanillaKey(msg)
  62.   CASE IDCMP_INTUITICKS
  63.     RETURN self.handleIntuiTicks(msg)
  64.   CASE IDCMP_IDCMPUPDATE
  65.     RETURN self.handleIdcmpUpdate(msg)
  66.   CASE IDCMP_MENUHELP
  67.     RETURN self.handleMenuHelp(msg)
  68.   CASE IDCMP_CHANGEWINDOW
  69.     RETURN self.handleChangeWindow(msg)
  70.   CASE IDCMP_GADGETHELP
  71.     RETURN self.handleGadgetHelp(msg)
  72.   DEFAULT
  73.     RETURN self.defaultHandler(msg)
  74.   ENDSELECT
  75. ENDPROC
  76.  
  77. PROC handleSizeVerify(msg) OF wbIDCMP IS PASS
  78.  
  79. PROC handleNewSize(msg) OF wbIDCMP IS PASS
  80.  
  81. PROC handleRefreshWindow(msg) OF wbIDCMP IS PASS
  82.  
  83. PROC handleMouseButtons(msg) OF wbIDCMP IS PASS
  84.  
  85. PROC handleMouseMove(msg) OF wbIDCMP IS PASS
  86.  
  87. PROC handleGadgetDown(msg) OF wbIDCMP IS PASS
  88.  
  89. PROC handleGadgetUp(msg) OF wbIDCMP IS PASS
  90.  
  91. PROC handleReqSet(msg) OF wbIDCMP IS PASS
  92.  
  93. PROC handleMenuPick(msg) OF wbIDCMP IS PASS
  94.  
  95. PROC handleCloseWindow(msg) OF wbIDCMP IS STOPIT
  96.  
  97. PROC handleRawKey(msg) OF wbIDCMP IS PASS
  98.  
  99. PROC handleReqVerify(msg) OF wbIDCMP IS PASS
  100.  
  101. PROC handleReqClear(msg) OF wbIDCMP IS PASS
  102.  
  103. PROC handleMenuVerify(msg) OF wbIDCMP IS PASS
  104.  
  105. PROC handleNewPrefs(msg) OF wbIDCMP IS PASS
  106.  
  107. PROC handleDiskInserted(msg) OF wbIDCMP IS PASS
  108.  
  109. PROC handleDiskRemoved(msg) OF wbIDCMP IS PASS
  110.  
  111. PROC handleActiveWindow(msg) OF wbIDCMP IS PASS
  112.  
  113. PROC handleInactiveWindow(msg) OF wbIDCMP IS PASS
  114.  
  115. PROC handleDeltaMove(msg) OF wbIDCMP IS PASS
  116.  
  117. PROC handleVanillaKey(msg) OF wbIDCMP IS PASS
  118.  
  119. PROC handleIntuiTicks(msg) OF wbIDCMP IS PASS
  120.  
  121. PROC handleIdcmpUpdate(msg) OF wbIDCMP IS PASS
  122.  
  123. PROC handleMenuHelp(msg) OF wbIDCMP IS PASS
  124.  
  125. PROC handleChangeWindow(msg) OF wbIDCMP IS PASS
  126.  
  127. PROC handleGadgetHelp(msg) OF wbIDCMP IS PASS
  128.  
  129. -> Default handler for message classes that don't have their own handler.
  130. -> Calling this should be considered a bug, leading to program halting.
  131. PROC defaultHandler(msg) OF wbIDCMP IS PASS
  132.  
  133.